home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act6a / 00677.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  436 b   |  16 lines
  1. on mouseDown
  2.   global partlist
  3.   set mychan to getPropAt(partlist, the clickOn - 11)
  4.   set oldink1 to the ink of sprite the clickOn
  5.   set oldink2 to the ink of sprite mychan
  6.   set the ink of sprite the clickOn to 4
  7.   set the ink of sprite mychan to 4
  8.   updateStage()
  9.   repeat while the mouseDown
  10.     updateStage()
  11.   end repeat
  12.   set the ink of sprite the clickOn to oldink1
  13.   set the ink of sprite mychan to oldink2
  14.   updateStage()
  15. end
  16.